home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 24 / 64er_Magazin_Sonderheft_24_19xx_Markt__Technik_de_Side_A.d64 / softcolor rx80 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  84 lines
  1. 10 rem ********************************
  2. 20 rem *                              *
  3. 30 rem *      softcolor mit rx/80     *
  4. 40 rem *                              *
  5. 50 rem *        juergen   curdt       *
  6. 60 rem *        kessemeierweg 5       *
  7. 70 rem *        4930  detmold 1       *
  8. 80 rem *                              *
  9. 90 rem ********************************
  10. 100 poke53281,12:poke53280,12
  11. 110 ifi=0theni=1:load"mp softcolor",8,1
  12. 120 fa=49632:gr=49606:te=49710:la=49748
  13. 130 print"[147]":y=12:gosub770
  14. 140 input"welche grafik laden ";a$
  15. 150 iflen(a$)>12thena$=left$(a$,12)
  16. 160 pokela+28,len(a$)
  17. 170 fori=1tolen(a$):pokela+28+i,asc(mid$(a$,i,1)):next
  18. 180 print"[147]":y=8:x=2:gosub770
  19. 190 print"^  umschalten grafik <> menue":gosub760
  20. 200 print"*  andere  flaeche  anwaehlen":x=1:gosub760
  21. 210 print"+/- bildschirmfarbe umschalten[152]"
  22. 220 sysla:open1,8,15:input#1,i:close1
  23. 230 ifi<>0then130
  24. 240 x=5:y=18:gosub770:print"[144]bitte taste druecken![152]"
  25. 250 poke198,0:wait198,1
  26. 260 fori=0to3:f(i)=49602+i:pokef(i),7+i:next
  27. 270 fori=0to3:fd(i)=5:fm(i)=7+i:next
  28. 280 f1=fd(0):f2=fd(1):f3=fd(2):f4=fd(3)
  29. 290 f=0:sysgr
  30. 300 i=0
  31. 310 i=i+1:geta$:ifa$=""andi<50then310
  32. 320 ifa$<>"*"then350
  33. 330 fori=0to3:pokef(i),fm(i):next
  34. 340 f=f+1:iff>3thenf=0
  35. 350 ifa$="+"thenfm(f)=(fm(f)+1)and15:pokef(f),fm(f)
  36. 360 ifa$="-"thenfm(f)=(fm(f)-1)and15:pokef(f),fm(f)
  37. 370 ifpeek(f(f))=0thenpokef(f),fm(f):goto390
  38. 380 ifpeek(f(f))<>0thenpokef(f),0
  39. 390 sysfa
  40. 400 ifa$<>"^"then300
  41. 410 syste
  42. 420 printtab(81)"[144]die in der grafik blinkenden flaechen"
  43. 430 printtab(44)"sollen ausgedruckt werden mit:"
  44. 440 x=8:y=4
  45. 450 iff1=5thengosub760:print"4  groesster farbdichte"
  46. 460 iff2=5thengosub760:print"3  grosser dichte"
  47. 470 iff3=5thengosub760:print"2  geringer dichte"
  48. 480 iff4=5thengosub760:print"1  kleinster farbdichte"
  49. 490 x=1:gosub760:print"[144]bitte ziffer fuer farbdichte waehlen
  50. 500 [153]"      oder umschalten zur grafik ^
  51. 510 geta$:ifa$="^"thena$="":goto290
  52. 520 ifa$<"1"ora$>"4"then510
  53. 530 fd(4-val(a$))=f
  54. 540 f1=fd(0):f2=fd(1):f3=fd(2):f4=fd(3)
  55. 550 gosub780:print"p   ausdruck starten
  56. 560 [161]a$:[139]a$[178]"^"[167][158]gr:a$[178]"":[137]340
  57. 570 [139]a$[178]"n"[167]130
  58. 580 [139]a$[179][177]"p"[167]560
  59. 590 [153]"load":x[178]3:y[178]5:[141]770
  60. 600 [153]"stopbitte vor dem start checken:"
  61. 610 [153][166]126)"* ist der drucker on line?
  62. 620 printspc(46)"* ist die startposition auf dem"
  63. 630 printtab(8)"papier markiert? - ist das"
  64. 640 printtab(8)"papier zur startmarkierung"
  65. 650 printtab(8)"zurueckgedreht?"
  66. 660 printtab(46)"* ist die druckfarbe gewechselt?
  67. 670 [153][163]123)"stopalles fertig? bitte taste druecken!"
  68. 680 [161]a$:[139]a$[178]""[167]680
  69. 690 [158]gr
  70. 700 [159]4,4:[158]49152,4,32,f1,f2,f3,f4:[160]4
  71. 710 [158]te:[141]780
  72. 720 [161]a$:[139]a$[178]"n"[167]130
  73. 730 [139]a$[179][177]"^"[167]720
  74. 740 a$[178]"":[137]270
  75. 750 [143] up'e cursor positionieren pp
  76. 760 y[178]y[170]3
  77. 770 [151]211,x:[151]214,y:[158]58732:[142]
  78. 780 [153]"loadstop":x[178]10:y[178]8:[141]770
  79. 790 [153]"bitte waehlen:":x[178]6:[141]760
  80. 800 [153]"^   umschalten zur grafik":[141]760
  81. 810 [153]"n   neue grafik laden"
  82. 820 [141]760:[142]
  83. 830 [172][172][172][172][172][172][172][172][172][172][172][172][172][172]  [128]e  [172][172][172][172][172][172][172][172][172][172][172][172][172]
  84.